home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).do / ESTIMATION.bas < prev    next >
BASIC Source File  |  1996-12-24  |  4KB  |  60 lines
  1. 10  REM 
  2. 15  FOR A = 1 TO 5: READ A(A),B(A): NEXT 
  3. 17  FOR A = 1 TO 5: READ E(A): NEXT 
  4. 20  HOME : PRINT 
  5. 30  PRINT "              ESTIMATION"
  6. 40  PRINT : PRINT " BY DANIEL TOBIAS            MAY 1982"
  7. 50  PRINT : PRINT "THIS PROGRAM TESTS YOUR ABILITY TO      ESTIMATE THE RESULTS OF MULTIPLICATION  OF LARGE NUMBERS."
  8. 60  PRINT : PRINT "YOU WILL BE GIVEN SOME LARGE NUMBERS    TO MULTIPLY.  ESTIMATE THE APPROXIMATE  RESULTS WITHOUT ACTUALLY DOING THE"
  9. 70  PRINT "COMPLETE MULTIPLICATION.  IT IS CHEATINGIF YOU USE A CALCULATOR!"
  10. 80  PRINT : PRINT "NOTE: THIS MAY SEEM BORING TO SOME OF   YOU, BUT THE PROGRAM WILL DRAW SOME     INTERESTING CONCLUSIONS AT THE END, SO  IT IS WORTHWHILE TO CONTINUE."
  11. 100  PRINT : INPUT "HIT RETURN TO CONTINUE. ";A$
  12. 110  HOME : PRINT 
  13. 120  FOR K = 1 TO 5
  14. 130  PRINT "PROBLEM "K" OF 5:"
  15. 140 A = A(K):B = B(K):P = E(K)
  16. 145  PRINT "ESTIMATE RESULT OF: "A" TIMES "B
  17. 150  PRINT : INPUT "ENTER RESULT: ";I$
  18. 170  GOSUB 1000
  19. 180  PRINT "THE CORRECT ANSWER IS "C
  20. 190  PRINT "YOU WERE "; ABS(100 -( VAL(I$)/C) *100)"% OFF.": PRINT 
  21. 200  NEXT K
  22. 205  INPUT "HIT RETURN TO CONTINUE. ";A$
  23. 210  HOME : PRINT 
  24. 215  PRINT : PRINT : PRINT 
  25. 220  PRINT "IN JUST A MINUTE, I'LL PRESENT YOU WITH YOUR RESULTS.  BUT FIRST, WHAT IS YOUR  EVALUATION OF THE PRECEDING?"
  26. 230  PRINT : PRINT " (1) I SEEMED TO BE GOOD AT ESTIMATING."
  27. 235  PRINT 
  28. 240  PRINT " (2) I GUESS I'M NOT TOO GOOD AT MAKING      ROUGH ESTIMATES."
  29. 250  PRINT 
  30. 260  PRINT " (3) THE WHOLE THING IS THE STUPID           COMPUTER'S FAULT!"
  31. 270  PRINT 
  32. 280  INPUT "CHOOSE ONE (1-3). BE HONEST. ";I
  33. 290  IF I <1  OR I >3  THEN 280
  34. 300  HOME 
  35. 310  PRINT 
  36. 320 I =  INT(I)
  37. 330  IF I = 1  THEN  PRINT "WELL, IF YOU MEAN YOU WERE GOOD AT      GUESSING THE RESULT THE COMPUTER GAVE,  YOU'RE REALLY NOT SO GOOD!"
  38. 340  IF I = 2  THEN  PRINT "NO, IT'S NOT YOUR FAULT.  ACTUALLY,     CHOICE (3), WHICH SEEMS LIKE A JOKE,    IS THE MOST ACCURATE ANSWER!"
  39. 350  IF I = 3  THEN  PRINT "GOOD FOR YOU!  YOU REALIZED THAT IT WAS THE COMPUTER, NOT YOU, THAT WAS MAKING  THE ERRORS!"
  40. 400  PRINT : PRINT "FOR EACH OF THE MULTIPLICATIONS, THE    SUPPOSEDLY CORRECT ANSWER GIVEN BY THE"
  41. 410  PRINT "COMPUTER IS WRONG.  EACH PROBLEM'S      ANSWER WAS FURTHER AND FURTHER FROM     THE RIGHT ANSWER."
  42. 420  PRINT : PRINT "THE POINT OF THIS IS TO SHOW HOW MUCH   PEOPLE UNTHINKINGLY RELY ON COMPUTERS   AND CALCULATORS BEING INFALLIBLE."
  43. 430  PRINT "IF YOU DIDN'T EVEN DOUBT THE ACCURACY   OF THE COMPUTER AFTER THE LAST PROBLEM, FOR WHICH THE COMPUTER'S ANSWER WAS"
  44. 440  PRINT "60% HIGHER THAN THE RIGHT ANSWER, THEN  YOU SHOULD MAKE AN EFFORT IN THE FUTURE TO USE MORE COMMON SENSE IN JUDGING"
  45. 450  PRINT "ANSWERS GIVEN BY MACHINES."
  46. 455  PRINT : INPUT "HIT RETURN TO CONTINUE. ";A$: HOME 
  47. 460  PRINT : PRINT "YOU ALSO CAN'T ALWAYS TRUST THINGS YOU  SEE IN PRINT, OR THAT ARE SAID BY       PEOPLE IN AUTHORITY."
  48. 470  PRINT "FOR EXAMPLE, MOST PEOPLE REGARD THE     ANSWERS AND RESULTS OF TESTS SUCH AS    THE S.A.T. AS CORRECT.  BUT, THEY HAVE"
  49. 480  PRINT "BEEN PROVEN WRONG IN THREE INSTANCES IN THE LAST TWO YEARS."
  50. 490  PRINT : PRINT "I DON'T MEAN FOR YOU TO ALWAYS DISTRUST EVERYBODY, BUT YOU ALSO SHOULDN'T ALWAYSBELIEVE WHAT ANYBODY SAYS."
  51. 495  PRINT : PRINT "LIKE, DIDN'T YOU BELIEVE ME WHEN I SAID AT THE START OF THE PROGRAM THAT IT WAS TESTING YOUR ABILITY TO ESTIMATE"
  52. 497  PRINT "MATH PROBLEMS?"
  53. 500  PRINT : PRINT "THIS WAS BASED ON AN EXPERIMENT REPORTEDIN 'PSYCHOLOGY TODAY'."
  54. 510  END 
  55. 1000  REM 
  56. 1010 C = A *B
  57. 1020 E =  INT(P *C)
  58. 1040 C = C +E: RETURN 
  59. 1050  DATA 2954,8655,3443,6354,121,232,298,453,987,678
  60. 1060  DATA  .1,.15,.25,.45,.6